home *** CD-ROM | disk | FTP | other *** search
/ The Guided Tour of Multimedia (Second Edition) / The Guided Tour of Multimedia (Second Edition).iso / trials / director / evalcopy / director.z / NAVIGATR.DIR / 00463_Field_463.txt < prev    next >
Text File  |  1994-06-14  |  636b  |  23 lines
  1. MECH ,  77
  2. --================================================================= 
  3. -- The handler manages the gear list. As we add gears to the
  4. -- list we increment the nGears property var. If we reach the max
  5. -- we no longer allow gears to be added to the list and the handler
  6. -- returns FALSE. If a gear is added to the list TRUE is returned.
  7. on mAddToGearList me,thisPart 
  8.   if nGears <= maxGears then
  9.     if objectP (thisPart) then
  10.       set nGears = nGears + 1
  11.       setAt(gearList,nGears,thisPart)
  12.       return TRUE
  13.     else 
  14.       return FALSE
  15.     end if
  16.   else
  17.     return FALSE
  18.   end if
  19. end mAddToGearList
  20.  
  21.  
  22.  
  23.